Option Explicit
Sub M_Sample011()
    Dim mysht As Worksheet
    Set mysht = Worksheets(1)
    mysht.OnCalculate = "'M_Sample011_1 ""Worksheets(1):OnCalculate""'"
    mysht.OnDoubleClick = "'M_Sample011_1 ""Worksheets(1):OnDoubleClick""'"
    mysht.OnEntry = "'M_Sample011_1 ""Worksheets(1):OnEntry""'"
    mysht.OnSheetActivate = "'M_Sample011_1 ""Worksheets(1):OnSheetActivate""'"
    mysht.OnSheetDeactivate = "'M_Sample011_1 ""Worksheets(1):OnSheetDeactivate""'"
    Set mysht = Nothing
End Sub

Sub M_Sample011_1(myStr As String)
    'dҥ
    MsgBox myStr
End Sub



